home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs03.d81 / arcaid.arc / MODULE1 (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  2KB  |  77 lines
  1. 0 REM
  2. 1 IF GL=0 THEN 40
  3. 2 IF GL=66 THEN 140
  4. 10 IF GL=500 THEN 230
  5. 20 IF GL=740 THEN 490
  6. 30 IF GL=760 THEN 510
  7. 40 REM: CREATE ARC FILE
  8. 50 PRINT"[147]             [195]REATE [193][210][195] FILE[146]"
  9. 60 PRINT"     [208]LEASE INSERT DISK WITH [193][210][195] FILE."
  10. 70 PRINT"  [208]RESS [158]$[146] FOR A DIRECTORY OF [196]RIVE 8,0."
  11. 80 PRINT" [208]RESS [158][213][146] FOR A NEW DRIVE CONFIGURATION."
  12. 90 PRINT" [208]RESS [158][211][208][193][195][197] [194][193][210][146] TO RETURN TO MAIN MENU."
  13. 100 PRINT"       [193]NY OTHER KEY WILL CONTINUE."
  14. 110 GET A$:IF A$="" THEN 110
  15. 120 IF A$="[213]" OR A$="U" THEN GOSUB660:GOTO
  16. 130 IF A$<>" " THEN 190
  17. 140 GL=66:PRINT"[147] [208]LEASE INSERT DISK WITH [193][210][195] [193][201][196] ON IT"
  18. 150 PRINT"           AND PRESS ANY KEY."
  19. 160 POKE198,0
  20. 170 GETA$:IF A$="" THEN 170
  21. 175 PRINT"[147]";SPC(15);"[204]OADING..."
  22. 180 PRINT"[144]LOAD"CHR$(34)"MAIN"CHR$(34)",8";:GOTO650
  23. 190 IF A$<>"$" THEN 260
  24. 200 PRINT"[147]        [200]OLD DOWN [211][200][201][198][212] TO PAUSE."
  25. 210 PRINT"DIR":PRINT"":GL=500
  26. 220 GOTO650
  27. 230 POKE198,0:PRINT"    [208]RESS ANY KEY TO RETURN TO MENU.[146]":GL=0
  28. 240 GET A$:IF A$="" THEN 240
  29. 250 GOTO 40
  30. 260 PRINT"[147]             [195]REATE [193][210][195] FILE.[146]"
  31. 270 PRINT"[147]   [206]OW THAT YOU KNOW THE NAME OF THE
  32. 280 [153]"FILE TO BE ATN(null)LEND, ANSWER THE FOLLOWING   QUESTIONS:"
  33. 290 [133] "ATN(null)LEN FILE TO BE CREATED";F$:[139] F$[178]"" [167] [138]
  34. 300 [139][194](2)[177]1[167][153]"(null)UT SYS(null)UTPUTWAIT DISK IN STR$RIVE 8,0"
  35. 310 [139] A[178]9 [167] 410
  36. 320 [133] "ASCILE, PATTERN OR SYS(null)VAL(null)(null)(null)(null)WAIT";FI$(A)
  37. 330 [139] FI$(A)[178]"" [167] 410
  38. 340 [139][194](2)[177]1[167][133]"(null)N WHAT DRIVE CAN THIS FILE BE FOUND    (EX. 9,0)";DV,DR
  39. 350 [141] 540:FD$(A)[178]DR$
  40. 360 [129] I[178]1 [164] [195](FI$(A))
  41. 370 [139] [202](FI$(A),I,1)[178]" " [167] TE$(A)[178]TE$(A)[170]"?":[137] 390
  42. 380 TE$(A)[178]TE$(A)[170][202](FI$(A),I,1)
  43. 390 [130]
  44. 400 A[178]A[170]1:[137] 310
  45. 410 [139] FI$(0)[178]"" [167] [138]
  46. 420 C$[178]"ARC/C A:"[170]F$:EX$[178]""
  47. 430 [129] I[178]0 [164] A[171]1
  48. 440 EX$[178]EX$[170]" "[170]FD$(I)[170]TE$(I)
  49. 450 [130]
  50. 460 C$[178]C$[170]EX$
  51. 470 [153]"LOAD";C$:[153]"":GL[178]740
  52. 480 [137]650
  53. 490 [153]"LOADARC/L A:"F$:[153]"":GL[178]760
  54. 500 [137]650
  55. 510 [151] 198,0:[153]"  (null)RESS ANY KEY TO RETURN TO MAIN MENU.WAIT":GL[178]0
  56. 520 [161] A$:[139] A$[178]"" [167] 520
  57. 530 [138]
  58. 540 DR$[178]""
  59. 550 [139] DV[178]8 [175] DR[178]0 [167] DR$[178]"A:"
  60. 560 [139] DV[178]8 [175] DR[178]1 [167] DR$[178]"B:"
  61. 570 [139] DV[178]9 [175] DR[178]0 [167] DR$[178]"C:"
  62. 580 [139] DV[178]9 [175] DR[178]1 [167] DR$[178]"D:"
  63. 590 [139] DV[178]10[175] DR[178]0 [167] DR$[178]"E:"
  64. 600 [139] DV[178]10 [175] DR[178]1 [167] DR$[178]"F:"
  65. 610 [139] DV[178]11 [175] DR[178]0 [167] DR$[178]"G:"
  66. 620 [139] DV[178]11 [175] DR[178]1 [167] DR$[178]"H:"
  67. 630 [142]
  68. 640 [128]
  69. 650 [151] 631,13:[151]632,71:[151] 633,207:[151]635,13:[151]636,13:[151]198,5:[137] 640
  70. 660 [153]"LOAD  LEFT$OW MANY DRIVES ARE YOU GOING TO USE?"
  71. 661 [153]"        SYS(null)WAITNE OR SYS(null)WAITULTIPLE STR$RIVES?"
  72. 670 [161] A$:[139] A$[178]"" [167] 670
  73. 680 [139] A$[179][177]"(null)" [175] A$[179][177]"O" [175] A$[179][177]"(null)" [175] A$[179][177]"M" [167] 670
  74. 690 [151] 2,1
  75. 700 [139] A$[178]"M" [176] A$[178]"(null)" [167] [151] 2,2
  76. 710 [142]
  77.